home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol061 / ask.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-13  |  1.4 KB  |  29 lines
  1. 100 cls: key off: on error goto 110: goto 120
  2. 110 print "error: check data": key on: close: end
  3. 120 print "place disk in drive a for errlev.com"
  4. 130 print "---then hit <enter>": dummy$=input$(1)
  5. 140 print: print "reading data statements..."
  6. 150 restore: read total, check#
  7. 160 for I=1 to total: read byte: sum#=sum#+byte          
  8. 162 tally#=tally#+1
  9. 165 rem: print sum#, check#, tally#, total
  10. 166 next I
  11. 170 if check# <> sum# then 110
  12. 180 print "writing a:errlev.com file..."
  13. 190 restore: read total, check#
  14. 200 open "R", #1, "A:errlev.com",1
  15. 210 field #1,1 as N$
  16. 220 for I=1 to total: read byte: lset N$=chr$(byte): put #1: next I
  17. 230 close: print "errlev.com created"
  18. 240 key on: end :system
  19. 250 data 138, 8759
  20. 260 data 30, 51, 192, 80, 190, 128, 0, 252, 51, 201, 138, 12, 70, 191, 58, 1
  21. 270 data 243, 164, 186, 58, 1, 180, 9, 205, 33, 184, 1, 12, 205, 33, 80, 178
  22. 280 data 13, 180, 2, 205, 33, 178, 10, 180, 2, 205, 33, 88, 60, 122, 119, 6
  23. 290 data 60, 97, 114, 2, 36, 223, 180, 76, 205, 33, 36, 36, 36, 36, 36, 36
  24. 300 data 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36
  25. 310 data 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36
  26. 320 data 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36
  27. 330 data 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36
  28. 340 data 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36
  29.